<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.12.1" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2041" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.Author="EXATA Sistemas" ReportOptions.CreateDate="37871,9957952199" ReportOptions.Description.Text="Este relatório e parte integrante do SEAC - Sistema EXATA de Automação Comercial" ReportOptions.Name="Relatorios\Carta Aniversario.clirelfr3" ReportOptions.LastChange="43650,4748385532" ScriptLanguage="PascalScript" ScriptText.Text="Var nMes:Integer;&#13;&#10;    cMes:String;                                                       &#13;&#10;    cTexto:String;&#13;&#10;    cNome:String;                                     &#13;&#10;procedure Band4OnAfterPrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;&#13;&#10;       cMes := Copy(&#60;clientes.&#34;Cliente_Nascimento&#34;&#62;,4,2);                                  &#13;&#10;&#13;&#10;       If cMes = '  ' Then Begin&#13;&#10;               exit;                                                      &#13;&#10;               End;                                  &#13;&#10;  &#13;&#10;       nMes := StrToInt(cMes);&#13;&#10;&#13;&#10;       cTexto := Copy(&#60;clientes.&#34;Cliente_Nascimento&#34;&#62;,0,2)+ ' de ';                                                                &#13;&#10;  &#13;&#10;       If nMes = 1 Then Begin                &#13;&#10;                     cTexto := cTexto + ' Janeiro ';                                                                                   &#13;&#10;               End;    &#13;&#10;&#13;&#10;       If nMes = 2 Then Begin&#13;&#10;                     cTexto := cTexto + ' Fevereiro ';                                                                                   &#13;&#10;               End;                                      &#13;&#10;&#13;&#10;       If nMes = 3 Then Begin&#13;&#10;                     cTexto := cTexto + ' Março ';                                                                                   &#13;&#10;               End;                                      &#13;&#10;&#13;&#10;       If nMes = 4 Then Begin&#13;&#10;                     cTexto := cTexto + ' Abril ';                                                                                   &#13;&#10;               End;                                      &#13;&#10;&#13;&#10;       If nMes = 5 Then Begin&#13;&#10;                     cTexto := cTexto + ' Maio ';                                                                                   &#13;&#10;               End;                                      &#13;&#10;&#13;&#10;       If nMes = 6 Then Begin&#13;&#10;                     cTexto := cTexto + ' Junho ';                                                                                   &#13;&#10;               End;&#13;&#10;                            &#13;&#10;       If nMes = 7 Then Begin&#13;&#10;                     cTexto := cTexto + ' Julho ';                                                                                   &#13;&#10;               End;&#13;&#10;                            &#13;&#10;       If nMes = 8 Then Begin&#13;&#10;                     cTexto := cTexto + ' Agosto ';                                                                                   &#13;&#10;               End;                                      &#13;&#10;&#13;&#10;       If nMes = 9 Then Begin&#13;&#10;                     cTexto := cTexto + ' Setembro ';                                                                                   &#13;&#10;               End;                                      &#13;&#10;&#13;&#10;       If nMes = 10 Then Begin&#13;&#10;                     cTexto := cTexto + ' Outubro ';                                                                                   &#13;&#10;               End;                                      &#13;&#10;                &#13;&#10;       If nMes = 11 Then Begin&#13;&#10;                     cTexto := cTexto + ' Novembro ';                                                                                   &#13;&#10;               End;                                      &#13;&#10;&#13;&#10;       If nMes = 12 Then Begin&#13;&#10;                     cTexto := cTexto + ' Dezembro ';                                                                                   &#13;&#10;               End;                                      &#13;&#10;&#13;&#10;       Memo5.Text := cTexto + 'de ' + IntToStr(&#60;ano_atual&#62;);         &#13;&#10;               &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;      cNome := CallHbFunc('Left',[&#60;clientes.&#34;Nome_Cliente&#34;&#62;,CallHbFunc('AT',[' ',&#60;clientes.&#34;Nome_Cliente&#34;&#62;])]);                                                &#13;&#10;      Memo2.Text := cNome + Memo2.Text;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;end.&#13;&#10;&#13;&#10;        " ShowProgress="False" StoreInDFM="False" PropData="044C656674025803546F70026808446174617365747301010C2600000020446174615365743D226F444D2E2220446174615365744E616D653D22636C69656E746573220000095661726961626C657301010C0F000000204E616D653D222056657273616F2200010C20000000204E616D653D2256657273616F5F53697374656D61222056616C75653D22372200010C0D000000204E616D653D2220646174612200010C55000000204E616D653D22646961222056616C75653D224461794F6628537472546F4461746528262336303B636C69656E7465732E262333343B436C69656E74655F4E617363696D656E746F262333343B262336323B29292200010C57000000204E616D653D226D6573222056616C75653D224D6F6E74684F6628537472546F4461746528262336303B636C69656E7465732E262333343B436C69656E74655F4E617363696D656E746F262333343B262336323B29292200010C26000000204E616D653D22616E6F5F617475616C222056616C75653D22596561724F662844617465292200010C69000000204E616D653D226469615F6E617363696D656E746F222056616C75653D22262336303B646961262336323B3B262333343B2F3B262333343B3B262336303B6D6573262336323B3B262333343B2F3B262333343B3B262336303B616E6F5F617475616C262336323B3B2200010C10000000204E616D653D2220456D70726573612200010C3A000000204E616D653D2252617A616F5F536F6369616C222056616C75653D22274578617461204D616361E9205465636E6F6C6F676961204C746461272200010C2E000000204E616D653D224E6F6D655F46616E7461736961222056616C75653D222745786174612053697374656D6173272200010C1D000000204E616D653D224C6F6A61222056616C75653D222743656E74726F272200010C3D000000204E616D653D22456E64657265636F222056616C75653D22275275612045757A6562696F2064652051756569726F7A2C20363030202D204C6F6A61272200010C1F000000204E616D653D224E756D65726F222056616C75653D2227202020363030272200010C22000000204E616D653D22436F6D706C656D656E746F222056616C75653D22274C6F6A61272200010C1F000000204E616D653D2242616972726F222056616C75653D222743656E74726F272200010C1E000000204E616D653D22436964616465222056616C75653D22274D616361E9272200010C17000000204E616D653D225546222056616C75653D2227524A272200010C1F000000204E616D653D22434550222056616C75653D222732373931302D323330272200010C33000000204E616D653D2254656C65666F6E65222056616C75653D22272832322920323736322D3836373920202020202020202020272200010C2E000000204E616D653D22466178222056616C75653D22272832322920383833332D3431313120202020202020202020272200010C29000000204E616D653D22434E504A222056616C75653D222733362E3537372E3534322F303030312D3739272200010C2A000000204E616D653D22496E73635F457374616475616C222056616C75653D222738342E3636332E303138272200010C29000000204E616D653D22496E73635F4D756E69636970616C222056616C75653D22273030303030303030272200010C2C000000204E616D653D2253697465222056616C75653D22277777772E657861746173697374656D61732E636F6D272200010C31000000204E616D653D22456D61696C222056616C75653D22277375706F72746540657861746173697374656D61732E636F6D272200010C27000000204E616D653D224C6F676F222056616C75653D2227496D6167656E735C6C6F676F2E706E67272200010C3C000000204E616D653D22536C6F67616E222056616C75653D22275475646F2065206D61697320756D20706F75636F207061726120737561206C6F6A6121272200010C21000000204E616D653D22436F6469676F5F4C6F6A61222056616C75653D2227303031272200010C1E000000204E616D653D225465726D696E616C222056616C75653D2227303031272200010C0F000000204E616D653D2220546974756C6F2200010C2B000000204E616D653D22546974756C6F31222056616C75653D2227436172746120416E69766572736172696F272200010C1A000000204E616D653D22546974756C6F32222056616C75653D2227272200010C1A000000204E616D653D22546974756C6F33222056616C75653D2227272200010C1A000000204E616D653D22546974756C6F34222056616C75653D2227272200010C1A000000204E616D653D22546974756C6F35222056616C75653D2227272200010C0E000000204E616D653D22204175746F722200010C2B000000204E616D653D224175746F725F4E6F6D65222056616C75653D222745584154412053697374656D6173272200010C32000000204E616D653D224175746F725F53697465222056616C75653D22277777772E657861746173697374656D61732E636F6D27220000055374796C650100">
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" Frame.Style="fsDashDot" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
    <TfrxPageHeader Name="Band2" Height="113,3859" Left="0" Top="18,89765" Width="737,00835">
      <TfrxMemoView Name="Telefone" Left="3,77953" Top="22,45671" Width="377,953" Height="18,89765" GroupIndex="1" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[Telefone]"/>
      <TfrxMemoView Name="Nome_Fantasia" Left="3,77953" Top="3,10235" Width="377,953" Height="18,89765" GroupIndex="1" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[Nome_Fantasia]"/>
    </TfrxPageHeader>
    <TfrxMasterData Name="Band4" Height="888,18955" Left="0" Top="192,75603" Width="737,00835" OnAfterPrint="Band4OnAfterPrint" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="oDM." DataSetName="clientes" RowCount="0">
      <TfrxMemoView Name="clientesNome_Cliente" Left="215,43321" Top="15,11812" Width="461,10266" Height="18,89765" GroupIndex="2" ShowHint="False" DataField="Nome_Cliente" DataSet="oDM." DataSetName="clientes" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[clientes.&#34;Nome_Cliente&#34;]"/>
      <TfrxMemoView Name="clientesCliente_End" Left="215,43321" Top="37,7953" Width="461,10266" Height="18,89765" GroupIndex="2" ShowHint="False" DataField="Cliente_End" DataSet="oDM." DataSetName="clientes" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[clientes.&#34;Cliente_End&#34;]"/>
      <TfrxMemoView Name="Memo1" Left="45,35436" Top="150,60637" Width="355,27582" Height="52,91342" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-35" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="I M P R E S S O"/>
      <TfrxMemoView Name="Cidade" Left="-241,80334" Top="284,09462" Width="653,85869" Height="26,45671" GroupIndex="3" ShowHint="False" DisplayFormat.FormatStr="d &#34;de&#34; mmmm &#34;de&#34; yyyy" DisplayFormat.Kind="fkDateTime" Font.Charset="1" Font.Color="-16777208" Font.Height="-21" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[Cidade]-[UF],"/>
      <TfrxMemoView Name="Memo2" Left="37,7953" Top="356,3624" Width="653,85869" Height="257,00804" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-21" Font.Name="Arial" Font.Style="0" HAlign="haBlock" ParentFont="False" Text=", hoje Ã© um dia importante. &#13;&#10;&#13;&#10;Nada de ofertas, promoÃ§Ãµes ou qualquer novidade em plano de pagamento.&#13;&#10;&#13;&#10;VocÃª que nos dÃ¡ a primazia como cliente, durante o passar do tempo, merece e muito a nossa lembranÃ§a e nosso afeto.&#13;&#10;&#13;&#10;Que este dia seja de muita paz e que marque o inÃ­cio de grande conquista."/>
      <TfrxMemoView Name="Memo3" Left="37,7953" Top="786,29963" Width="653,85869" Height="30,23624" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-21" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="SÃ£o os votos da [Nome_Fantasia]"/>
      <TfrxLineView Name="Line1" Left="3,77953" Top="256,9765" Width="721,89023" Height="0" ShowHint="False" Frame.Style="fsDashDot" Frame.Typ="4" Frame.Width="0,5"/>
      <TfrxMemoView Name="clientesCliente_CEP" Left="215,43321" Top="64,25201" Width="461,10266" Height="18,89765" GroupIndex="2" ShowHint="False" DataSet="oDM." DataSetName="clientes" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[clientes.&#34;Cliente_CEP&#34;] - [clientes.&#34;Cliente_Bairro&#34;] - [clientes.&#34;Cliente_Cidade&#34;], [clientes.&#34;Cliente_UF&#34;]"/>
      <TfrxMemoView Name="Memo4" Left="37,7953" Top="665,19728" Width="653,85869" Height="37,7953" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-21" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="FELIZ ANIVERSÃRIO"/>
      <TfrxLineView Name="Line2" Left="7,55906" Top="640,7248" Width="721,89023" Height="0" Visible="False" ShowHint="False" Frame.Style="fsDashDot" Frame.Typ="4" Frame.Width="0,5"/>
      <TfrxMemoView Name="Memo5" Left="414,61441" Top="284,09462" Width="653,85869" Height="26,45671" GroupIndex="3" OnBeforePrint="Memo5OnBeforePrint" ShowHint="False" DisplayFormat.FormatStr="d &#34;de&#34; mmmm &#34;de&#34; yyyy" DisplayFormat.Kind="fkDateTime" Font.Charset="1" Font.Color="-16777208" Font.Height="-21" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[clientes.&#34;Cliente_Nascimento&#34;]"/>
    </TfrxMasterData>
  </TfrxReportPage>
</TfrxReport>
